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; 1 001 MODULE ANALYZE (2TITLE Analyze a save set’ 

; § 0 § IDENT = ‘v04-000' 

; 00 ) = 

; 4 004 BEGIN 

: 5 005 1 

; 6 0006 1! 

3 4 et \ Lee ReR RRA ARAREEEE AAA TE AEA REAR AAAEREEERE EEE 
; :® 

: y 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 
: 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; 3 BRA : ‘* ALL RIGHTS RESERVED. * 
P 4 * 
3 i $O18 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
: 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 16 ong 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 17 001 1 !® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 18 dt 4 ; 7 TRANSFERRED. * 
3 ‘t &e 
. 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
, 2 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; 58 Boss \ ? CORPORATION. * 
° Mil & 
; 2 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
2 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; @& 0026 1 !« ® 
ae +g 0027 1 ! * 
$ 28 0028 1 cara eee eee eRe 
> @& oh 94 1! 

; 30 0030 1 

3 31 0031 1 !4¢ 

; 32 itt) 1 ! FACILITY: 

; 33 00335 1! Backup/Restore 

3 34 0034 1! 

; 35 B03 1 ! ABSTRACT: 

3 4 Boss ' This module contains the routines that analyze a save set. 

; Hf 0038 1 ! ENVIRONMENT: 

; Ww 0039 1! VAX/VMS user mode. 

; 40 0040 1 !-- 

x #4 0041 1! 

: $¢ sk 1 ! AUTHOR: M. Jack, CREATION DATE: 03-Sep-1980 

; «¢ 0045 1! 

; «646 pote 1 ! MODIFIED BY: 

3; 645 045 1! 

s; 6 0046 1! v03-009 Lv0510 Larry Yetto 19=JUL-1984 08:44 

. Or 0047 1! Add support for the new longqword devtyp in the physical 

; 648 0048 1! volume attributes record. The format of this longword is 

: $2 se ' the same as UCBSL_MEDIA_ID 

3 24 0051 1! v03-008 LY0485 Larry Yetto _ _ 27=APR-1984 08:42 

: 26 O06 1! FT1 QAR # 2088 = If the saveset being read is encrypted 

: a7 bez ! } and /ENCRYPT not specified then report an error 

: a O55 7%: V03-007 LMP0176 L. Mark Pilant, 6-Dec-1983 10:41 

; 28 Bos ' } Use the correct width in the call to SFORMAT_ACL. 


Add new attributes for image restore. Make some routines 
common with LIST module. Replace OWN storage with LOCAL. 
Change !SL directives to !UL. 


2 
ANALYZ Analyze a save set 18-56 -1984 23:4 AX-11 Bliss<-32 V4.0-742 
v04=0 4 lane p= 188d Tiksies §— POACKUP SRESAMAL YEE Bsoe 
3 8 038 1! V03-006 JWT0137 Jim Tea 78.5 19-Sep-1983 08:22 
; 4 828 : CRYPTO_INIDEC and CRYPTO_DECR_BLOCK need to be WEAKened. 
: «61 0061 1: v03-005 JEP0003 J. Eric Pollack, 23-Apr-1983 10:53 
3 ? B29 : Add support for encrypted savesets. 
> 64 0064 1 v03-004 ACG0332 Andrew C. Goldstein, | 19-Apr-1983 18:10 
: o Boe? : Add support for file highwater mark and RMS journal flags 
: «67 0089 1! v03-003 LMP0100 Mark Pilant 14-Apr-1983 13:17 
; o8 94 : Add te SFORMAT “at system service. 
: 5 Bi ] v03-002 acgos 0 Andrew C. Goldstein, 12-Feb-1983 16:01 
3 f Bf 1} d 313 eine subtitles 
. ¥ oor8 1! VO3-001 LMP0044 ® Gert Pilant, 21-Oct-1982 15:10 
: a Bore : : Add support for ACL's 
> 76 0076 1: v02=006 ML0081 rtin L. Jack, 26-Feb-1982 16:16 
: 77 0077 1! Add RETAINMIN soa RETAINMAX attributes to support new home 
. we 0078 1! block fields. 
: 79 0079 1! 
; 0080 1! v02-005 MLJ0075 Martin L. Jack, 28-Jan-1982 20:02 
3 81 0081 1! ~ eae and DIR_VERLIM a She thonen to support version Limit 
BR BRT apeir 
: 84 0084 1! V02=004 MLy0062 rtin L. Jack, 3-Dec-1981 12:16 
3 5? 4'#4 : : Add DIR_ STATUS otelaut to support / INCREMENTAL. 
) ar 0087 1! v02-003 MLJ0036 Martin L. Jack, 28-Aug-1981 17:09 
3 4 4454 : : Implement parent directory attributes and reel restart. 
: 90 0090 1: V02-002 MLJ0023 Martin L. Jack, 23-Apr-1981 11:36 
3 4 ad : } Implement placement attribute. 
: 9 0093 1 | v02-001 MLJ0010 Martin L. Jack, 25-Mar-1981 14:58 
; 1 i 
: 1! 
: 1! 
; 1! 


re 


Analyze a save set 


ANALYZE 
v04= 


FORWARD ROUT 
ANALYZE_ONE_ATTRIBUTE : 

L_P$ NOVALUE, 
ANALYZE_ONE_RECORD: 

L_P$ NOVALUE, 
ANALYZE_ONE_BUFFER: 

L_P$ NOVALUE, 


INE 


WWIII AIR NININININPIPININDD SS OOO OS SOOO 


OOOO O00 0909 09 00 00 09 09 09 SII NN SI NINN NSA AAA AAO 
MEW 9 OONOUE WIN $0 OONAUESWN (OO ODNAYV EWN" OOONAAWUO 


000 
; 100 1 
: 101 1 1 
: 106 1 1 
; 10 16 1 
: 104 16 1 
: 105 16 1 
; 106 16 1 
: 107 16 1 
; 108 16 1 
; 109 16 1 
: 110 1 1 
: 111 1 1 
.. % ¢ 16 1 
. ¥ 16 1 
> (114 16 1 
: 115 16 1 
: 116 16 1 
: .117 16 1 
; 118 16 1 
: 119 16 1 
: 120 16 1 ANALYZE: NOVALUE; 
> 121 16 1 
.. 3 ¢ 16 1 
'? 16 1 EXTERNAL ROUTINE 
: 124 16 1 DEBLOCK: L_P$ NOVALUE, 
: 125 16 1 DEBLOCK_ATTR: L”P$ NOVALUE, 
: 126 16 1 DECODE_BevtyP: NOVALUE, 
: 127 16 1 FIN_IN- SAVE: NOVALUE, 
: 128 16 1 INIT_IRN_SAVE NOVALUE, 
> 129 16 1 LIST-FAO: L_P$ NOVALUE, 
3; 130 16 1 LIST-EOL: L-P$ NOVALUE, 
3 131 16 1 LIST-PROTECTION:L_P$ NOVALUE, 
:: ¢ 16 1 READ- BUF 
: 4 1686 1 RESTORE_HANOLER, 
3; 134 16 1 CRYPTO_INIDEC: WEAK, 
: 135 16 1 CRYPTO_CHKSAV, 
3 (136 16 1 CRYPTO_DECR_BLOCK: NOVALUE 
Sar 16 1 WEAK; 
: 138 16 1 
3; «139 16 1 
: 140 16 1 GSDEFINE(); 
> 141 16 1 
3 142 1695 1 
: 143 1696 18 
2 144 1697 1 FALSETRUE = UPLIT (¢ 
3: 145 1698 1 UPLIT BYTE (ZASCIC ‘False 
> 146 1699 1 UPLIT BYTE (ZASCIC ‘True’ 
3 «147 1700 1 3 
: 148 1701 1 
: 149 1708 1 
: 150 1703 1 EXTERNAL LITERAL 
3 (151 1704 1 BACKUP$_BACNOTENC, 
: 138 1705 1 BACKUPS_ENCSAVSET; 
e 17 1 
3: 156 17 1 MACRO 
; 155 m 1708 1 FAO_(A)= 
: 156 1709 1 LIST_FAO( 


a $3790:06 ry Bliss-32 V4.0-742 
4 11:53:45 BACKUP.SRC JANALYZE .832;1 


009 REQUIRE 'SRC$:COMMON’: 
LIBRARY ‘SYSSLIBRARY: STARLET’; 
REQUIRE "LIBS:BACKDEF’; 
LINKAGE 
L_P$ = CALL: GLOBAL (P$=11); 
MACRO 
L_DECL = EXTERNAL REGISTER PS = 11: REF VECTOR 2; 


Format an attribute record 


Format a record 


Format a block 
Driver for save set analysis 


' Deblock a save set buffer 

! Deblock an attribute record 

' Convert DEVTYP to ASCII Str tng 

! Finish input save set processing 

! Initialize input save set processing 
! Add information to line buffer 

! Write Line buffer to Listing file 

' List protection code 

' Get a save set buffer 

' Handler for RESTORE, LIST, ANALYZE 

! Initalize for reading encrypted saveset 
! Check if saveset is encrypted 


! Decrypt one block 


! Define global common area 
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ANAL Analyze a save set 1b-s6 -1984 23:40:04 AX-11 Bliss-32 V4.0-742 Page 7 
Vv 860 ANALY ZE_ONE_ATTRIBUTE = analyze contents of att 12-Sep-19 4 $7 :49:08 EBACKUP.SRe ANALYZE .852;1 ’ (3). 
; 288 1840 UPLIT BYTE (ZASCIC "RETAINMAX") 

: 289 1841 PLIT BYTE CEASCIC "ACLSEGMENT'S, 

; 290 1 Ag BYTE (ZASCIC “HIGHWATER'), 

; 291 184 UPLIT BYTE (ZASCIC "JNL_FLAGS’) 

; % 1844 UPLIT BYTE (ZASCIC ‘CRYPDATKEY'S) 

; 2 1845 : VECTOR; 

: 29% 1 46 L_DECL; 

: 295 184 

3 296 1 48 

; 97 184 ' List the attribute name. 

> 298 1850 2 

: 299 P 1851 FAO_(' __ SIZE = !3SL, TYPE = !AC' 

; 300 1 4 -ATTCBSASW_SIZEJ, .ATTRSC.ATTCBSASW_TYPEJ-1)); 

; 301 185 EOL_(); 

; 0¢ 1854 

: 30 1855 

: Be 1928 : List the attribute value in an appropriate format. 

: 306 1858 2 FAO_(' '); 

: 307 1859 2 CASE .ATTCBSASW_TYPE] FROM BSASK_SSNAME TO BSASK_NUM_ATRS~-1 OF 

ie. ei” 

: 310 186¢ CBSASK_SSNAME, BSASK_COMMAND, BSASK COMMENT, BSASK_USERNAME, BSASK_SYSVER, 
: 311 186 BSASK-BACKVER, BSASR_NODENAME, BSASK DRIVEID, BSASK_VOLSETNAM, 

; 312 1864 BSASK-VOLNAME, BSASK-OWNERNAME, BSASR_FORMAT, BSASK~FILENAME, 

; Hy 1865 BSASK"DEVNAM, BSASK_CABEL): 

: 314 P 1866 FAO_(***! age? 

; 516 1867 -ATTCBSA$W_SIZEJ, ATTCBSASC_LENGTH,0,0,0)); 

: 317 1869 CBSASK_USERUIC, BSASK_VOLOWNER, BSASK_UIC, BSASK_DIR_UIC): 

: 318 P 1870 FAO_(*! Zu" | 
; 319 1871 -ATTCBSASC_LENGTH,0,32,0)); 

; 354 1898 CBSASK_DATE, BSASK_VOLDATE, BSASK_CREDATE, BSASK_REVDATE, BSASK_EXPDATE, 
; 32¢ . 187% BSASK BAKDATE, BSASK_RETAINMIN, BSASK_RETAINMAX]: 

; 324 187% “ATTCBSASC_LENGTH,0,0,02); 

; 326 1878 [BSAS$K_BLOCKSIZE, BSASK_XORSIZE, BSASK_BUFFERS, BSASK_NVOLS 

: 327 1879 SASK-BACKFILES, BSASK-RVN, BSASK WINDOW, BSASK_LRU_CIM, BSASK_EXTEND, 
; 328 1880 BSASK-CLUSTER, BSASK_RESFILES, BSASK VOLSIZE, BSASK-TOTFILES 

: 329 1881 SASK“MAXFILES, BSASR SASK _FILESIZE, BSA$K REVISION, 

: 330 1882 BSASK"SECTORS, BSASK TRACKS, BSASK CYLINDERS, BSASK_MARBLOCK, 

; 31 188 BSASK-INDEXLBN, BSASR_BOOTVEN BSASK_DIR_VERLIM, 

; 3¢ A 1884 BSASK VERLINIT, BSASK-HIGHWATER): 

; 34 1886 ~ AT TEBSASC_LENGTH,O, .ATTCBSASW_SIZE]*8,13); 

: 1888 CBSASK_DEVTYP) : 

i 33 1850 IF -ATTCBSASW_SIZE) EQL 1 

; 39 91 ! Old format DEVIYP attribute. This is the DEVTYP from the UCB 
: 341 p 1898 FAOLC tute 

} 4g 94 -ATTCBSASC_LENGTH,O, .ATTCBSASW_SIZEJ*8,1)) 

: 344 1892 ELSE 


ANALY Analyze a save set 15-sep-1984 $340:06 orn Bliss-32 V4.0-742 Page 
v04- ANALYZE _ONE ATTRIBUTE = analyze contents of att 14-Sep-1984 11:55:45 BACKUP.SRC JANALYZE .832;1 
45 97 BEGIN 
re] 189 ' New format DEVTYP. We now use a longword and store 
48 1 $Y ' the MEDIA_ID from the UCB. We use the nondecoded 
$8 1304 form of the MEDIA_ID so we must now pull the ASCII out. 
1 1308 LOCAL 
é 1904 NAME_LENGTH : LONG INITIAL (DEVTYP_BUF_LEN), 
1905 TYPE-LENGTH : LONG _INITIAL (DEVTYP~BUF-LEN), 
54 1906 ~ ER : VECTOR DEVTVE BUF LEN .BYTET 
55 1907 TYPE-BUFFER =: -VECTORCDEVTYP{BUF “LEN. BYTE] ; 
23 1309 DECODE_DEVTYP ( .ATTCBSASC_LENGTH,0,32,0), 
58 1910 NAME _L , NAME. BUFFER, 
59 1911 TYPE-LENGTH, TYPE~BUFFER ) ; 
60 191¢ 
1 P 191 FAO, (°!XL_C!AF,!AF)* 
36 P 1914 -ATTCBSASC_LENGTH,0, .ATTCBSASW_SIZEJ*8,0), 
6 P 1915 -TYPE_LENGTH, TYPE_BUFFER, 
64 1916 “NAME-LENGTH, NAME-BUFFER ); 
65 1917 
66 1918 END ; 
67 1919 
rs) 1920 
69 1921 CBSASK FID, BSASK BACKLINK}: 
70 P 198¢ ; FAO_(*!uL,!UL7!UL' 
71 P19 -ATTCBSASC_LENGTH,0,16,0) + .ATTCBSASC_LENGTH+5,0,8,0] * 16, 
2 P 1924 -ATTEBSASC~LENGTH#2,0, 16,0), 
a 1996 -ATTCBSASC_LENGTH#+4 ,0,8,01); 
75 1927 CBSA$K_PROTECT): 
16 1928 LIST_PROTECTION( .ATTCBSASC_LENGTH,0,16,0], "RWCD'); 
78 1385 CBSASK_FILEPROT, BSASK_FPRO, BSASK_DIR_FPRO): 
379 1931 ’ LIST_PROTECTION( ATTCBSASC_LENGTH,0,16,0), "RWED'); 
381 1938 CBSA$K_RECPROT, BSASK_RPRO): 
38¢ 1934 LIST_PROTECTION( ATTCBSASC_LENGTH,0,16,0], 'RWUD'); 
384 1936 CBSA$K_BADBLOCK): 
85 1937 BEGIN LOCAL P: REF VECTOR; 
86 1938 P = ATTCBSASC_LENGTH,0,0,0); 
87 1939 WHILE .P LSSA-ATTCBSASC_CENGTH,0,0,0]+.ATTCBSA$W_SIZE] DO 
88 1940 4 BEGIN 
89 1941 4 FAO_("!uL:!uL ", .PCOJ, .PC1)); 
90 1948 4 P =".P + B: 
91 194 END; , 
9 1944 END; 
9 1945 
94 1946 CBSASK SERIAL, BSASK_SERIALNUM): 
95 P 194 FAD_(*!0 
9% 1948 -ATTEBSASC_LENGTH,0,32,0)); 
97 1949 
98 1950 CBSASK_ACLSEGMENT): 
99 1951 BEGIN 
400 195¢ LOCAL 
401 195 ACE_POINTER : REF BBLOCK, ! Address of the current ACE 
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anelyee a save se 
ANALYZE_ONE_ATTRI 
011 

ois TES; 
01 EOL_O; 
014 1 END; 


3 
t 18-sepe1 138% $3: 29: 
BUTE = analyze contents of att 14-Sep-19 1:5 


.PSECT 
00000 GLOBAL_BASE: 
00000 FREE LISTS. 
00008 INPUT_WAIT: 
00010 REREAD wilt: 
00018 OUTPUT wit: 


LK 
000 PY PI_UIC: .BLKB 
00024 IPI ~USERWANE 


00030 wipate 
00038 JP1_NODE DESC: 
00040 JPI_CURPRIV: 
00048 SVI_VERSION: 


0004C SYI_SID:.BLKB 
00050 RWSV_HOLD_LIST: 


00058 RWSV_CRCI6: 
00098 RwSV _AUTODIN: 
000D8 RWSV -FILESET ID: 
0000 RwSV -VOLOME 10: 
QOOEC RWSV_VOL_NUMBER: 
QOOEE RWSV_SEG “AUMBER: 
OOOFO RWSV_FILE NUMBER: 
QOOF4 RWSV_SAVE QUAL: 
QOOF8 RWSV_SAVE_FAB: 
OOOFC RWSV_CHAN: 
00100 RWSV_XOR_BCB: 
TBLKB 


AX-11 Bliss-32 V4.0=-742 


704 
745 BACKUP. SRCJANALYZE B32; 1 


try a 4 Analyze a save set 
\V04-000\ 


COMMON,NOEXE, OVR,2 


SF PF PF FEN Ww 
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— Analyze a save ;¢ 


3 
1$-sap-19 4 23:49:04  YAKoI1 BLiss~32 v4_0-74 p 1 
ANALYZE _ONE_ATTR => 4 39:08 ¢5 : aoe of} 


BUTE = analyze contents of att 14- ~Sep-1984 BACKUP. SRC JANALYZE .B3251 
00104 RUSV_IN_SEQ: 
00108 RWSV_IN_SEG 
0010¢ RWSV_IN_KOR SEG: 
00110 RUSV_IN_KOR RFA: 
00116 cme 
00117 RWSV_XORSIZE: 
00118 RWSV_IN GROUP. $I 


| 
| 
| 
| 
| 
| 
| 

0011¢ RWSV_IN_ERRORS : 

-BLKB 

OOTTE RUSVIN_XORUSE: 


00120 RWSV_IN -ORGERR: 
00128 RWSV_IN_VBN: 
0012C RWSV_IN_ ion 0: 
00130 eusy_ mises 
00134 RWSV_EOF: 
00138 RWSV out’ st0. 
0013C RWSV_OUT_VBN: 
00140 RwSV_OUT BLOCK. COUNT: 


a a a ee ee Ce ee a. a a 


4 
00144 RWSV_OUT “ERRORS . 
00146 RWSV_SEQ -ERRORS: ; 
00148 RWSV_OUT -GROUP_ COUNT : 
00149 RWSV_PADDING: . 
0014C QUAL: .BLKB 112 
001BC COM_SSNAME : 
001C4 COM_VALIO TYPES: 
00106 COM. FLAGS: . 
001¢8 COM_ PADDING: , 
001¢9 COM_BUFF “COUNT ; 
0O1CA COM_1_SETCOUNT: 
001CB COM_O_SETCOUNT: 


 acgutbicicaisb heist aaieioecaesagie dilbadst teeta ill a i aan aaa. 
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Analyze a save set 1B-s2p -1984 AX-11 Bliss- 4.0-74 
ANALYZE _ONE_ATTRIBUTE = analyze contents of att 12: Saat 73 39:28 BACKUP. §Rei SAMALY dE B58 


QO1CC COM_I_STRUCNAME : 
00108 COM_O.STRUCNAME : : 
O01E4 COM_0_BSRDATE: 
OO1EC ALT SSNANES 
0020¢ INPUT _FUNeS 
0020D INPUT_RTYPE: 
0020E ouTPUT FNC 
0020F FAST_STRUCLEV: 
00210 INPUT_BEG: 7 
00210 INPUT_CHAN: 
00214 INPUT “ruins 
00216 INPUT_PADDING: 
00218 INPUT_FABS . 
0021C INPUT_NAM: 
00220 INPUT BCB: 
00224 INPUT_QUAL: 
00228 INPUT Bab: 
0022C INPUT_BLOCK: 
00230 INPUT_MAXBLOCK: 
00234 INPUT_MEDIA. 1D: 
00238 INPUT _NAMEDESC: 
00240 INPUT_STATBLK: 
00248 INPUT WOR BEG: 
00248 INPUT_CREDATE: 
00250 INPUT_REVDATE : 
00258 INPUT _EXPDATE: 
00260 INPUT “BARBATE: 
00268 INPUT “FLCEOUNER: 
0026C INPUT_FILECHAR: 
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cc 


oa 


Anal 
ANAL 


ave 1besep-19 4 23 


7E_ONE_A 
00270 INPUT_RECATIR: 
00290 INPUT_HDR END: 
00290 INPUT END: 
00290 INPUT _PROC LIST: 
00294 INPUT_PLACEMENT: 
0029C INPUT_VBN Uist: 
002A4 INPUT_PLACE LEN: 
002A6 INPUT_PABDING._2: 
002A8 output _Bée: 
0028 OUTPUT_CIAN: 
002AC OUTPUT_FLAGS: 
OO2AE OUTPUT_PADDING: 
00280 OUTPUT_FABS 
002B4 OUTPUT_NAM: 
00288 OUTPUT_BCB: 
0028¢ OUTPUT _QUAL : 
002c0 OUTPUT BAD: | 
002C4 OUTPUT_BLOCK: 
002c8 OUTPUT .MAXBLOCK: 
oo2cc OUTPUT _DEVGEOM: 
00204 OUTPUT AT TBUF : 
00364 OUTPUT END: 
00364 LIST_TOTFILES: 
00368 LIST_TOTSIZE: 
0036C VERIFY_FAB: 


-BLK 
00370 VERIFY_USE COUNT: 


00374 VERIFY_QUAL | 
00378 COMPARE_BCB: 


oO re eS SC eH OC Benweese 8 ees 


144 
0 
4 
4 
& 
4 


4 
4 


t 40:04 
BUTE = analyze contents of att 14-Sep-1984 $759 :08 t 
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oa 
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| ANALY Analyz e set 
v04- 


Vi dt Ree Hit 
ANALYZE _ONE ATTRIBUTE = analyze contents of att 14-Sep-1984 745 


0037¢ 
00380 
00384 
00385 
00386 
00388 


00388 

0038C 

00390 
| 


00394 
00398 
00398 
0039¢ 
003A0 
003A4 
003A8 
OO3AC 
OO3AE 
00380 
00382 
00383 
003B4 
00386 
00388 
0038C 
0030 
003¢4 
0038 
003CC 


FAST BUFFER: 
FAST_BUFFER SIZE: 
FAST_RVN: 
BLK 
FAST_PADDING: 
BLK 
DIR_VERLIMIT: 
-BLKB 
FAST_VOL_BEG: 
FAST_IMAP_SIZE: 
FAST IMAP 
FAST_HDR. “OFFSET: 
FAST_BO00T T tBN: 
FAST_VOL. END: 
JOUR_BUFFER: 
JOUR_DIR: 
JOUR_HIBLK: 
JOUR_EFBLK: 
JOUR_INBLK : 
JOUR_FFBYTE: 
JOUR ~INBYTE : 
JOUR ~STRUCT LEV: 
JOUR_ COUNT: 
JOUR REVERSE: 
JOUR_EXSZ: P 
JOUR PADDING: 
CHKPT_HIGH SP: 
CHKPT LOW SP: 
CHKPT_STACK: 
-BLKB 
CHKPT_VARS: 
BLK 
CHKPT_STATUS: 
-BLKB 
DIR_BEG: .BLKB 
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| ANALY Analyze as 
$65 ANALYZE _ONE 


oe 


003cC 


p8 300 dO 


00308 
003E0 
003E8 
003E9 
OO3EA 
003EB 
003EC 
0052c 


00790 
00794 


00798 
00798 


0078C 
007C0 
007¢4 
007¢8 
007cCc 
00700 


O08t8 


0081C 
00820 
00824 
00828 
0082C 
00834 
00838 
00840 


DIR_CHAN: 
DIR_NAM: .BLKB 
4 DIRDEV_DESC: 
-BLKB 
DIR_SEL bi: 
LK 
DIR_SEL NIV: 
DIR =STRUCLEV: 
DIR_LEVELS: 
LKB 
DIR_FLAGS: 
BLK 
DIR_STATUS: 
DIR_STRING: 
DIR_STACK: 
DIR_SP: .BLKB 
DIR“SEL_LATEST: 
DIR_END: .BLKB 
DIR =SCANLIMIT: 
INPUT_MTL: : 
OUTPUT Ait: 
CURRENT Att: 
CURRENT aie 
CURRENT_WC 
ACL_FI1B_DESCR: 
-BLKB 
ACL_FIB: -BLKB 
ACL“LENGTH 
Lk 
ACL_BUFFER: 


CRYP_IN_CONTEXT: 
CRYP_OU_CONTEXT: 
CRYP_DA_CONTEXT: 
CRYP_DATA_ENCIV: 


~BLK 
CRYP_DATA. CODE: 
CRYP_DATA KEV: 
CRYP_DATA_IV: 
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-BLKB 
CKSM: 
BLKB 


_DATA 


00848 CRYP 


«PSECT CODE,NOWRT,2 


<5>\False\ 
<4>\True\ 
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35 4C 32 3 A 4C 83 4 Sz P.ADG: ASCII <8>\ tL su { 
4C tes P. : sASCII <S>\!IOL\ 
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53 41 21 ? 45C P. ADU: ASCII AY 
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-EXTRN DECODE DEVTYP, FIN, IN SAVE 
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| ANALYZ Analyze a save set 8-s¢ $1984 23:40:04 AX-11 Bliss-32 V4.0-742 Page 23 
Rive ANALYZE. ONE. RECORD - analyze save set record 1228057138 $7 :69:08 EBACKUP.SRe ANALYZE .832;1 : (4). 

; 464 015 1 XSBITL ‘ANALYZE_ONE_RECORD = analyze save set record’ 

; ret 613 : ROUTINE ANALYZE_ONE_RECORD(REC): L_P$ NOVALUE= 

; 46 018 1 !+4 

; 468 019 1! 

> 469 020 1 ! FUNCTIONAL DESCRIPTION: 

3 riA 3 1 : This routine analyzes the contents of one save set record. 

; 47 0 : 1 ! INPUT PARAMETERS: 

3 of 0246 1! REC - Pointer to record. 

> 474 2025 1! 

; 475 $ 6 1! IMPLICIT INPUTS: 

3; 476 027 1! NONE 

3; 477 2028 1! 

; 478 $08 1 ! OUTPUT PARAMETERS: 

> 479 2030 1! NONE 

: 480 soe BR 

: 481 20 ¢ 1 ! IMPLICIT OUTPUTS: 

; 48 2035 1! NONE 

: 48 2034 1! 

s 484 2035 1 ! ROUTINE VALUE: 

: 485 2036 1! NONE 

; 486 2037 1! 

; 487 2038 1 ! SIDE EFFECTS: . 

; 488 2039 1! The Listing is produced. 

3; 4489 2040 1! 

; 490 2041 1 !-- 

; 491 sore 1 

; 49 204 $ BEGIN 

; 49 2044 MAP ; 

3; 494 2045 2 REC: REF BBLOCK; ! Pointer to record 

> 495 2046 2 BIN 

>; 496 2047 2 RTYPES = UPLIT (¢ 

: 497 2048 2 UPLIT BYTE (ZASCIC "NULL"'), 

; 498 2049 2 UPLIT BYTE (ZASCIC ‘SUMMARY'), 

; 499 2050 2 UPLIT BYTE (ZASCIC ‘VOLUME"), 

; $00 2051 UPLIT BYTE (ZASCIC ‘FILE'), 

; 501 opae UPLIT BYTE (ZASCIC ‘VBN') 

; 502 205 UPLIT BYTE (ZASCIC ‘PHYSVOL"), 

; 503 2054 2 UPLIT BYTE (ZASCIC N‘), 

; 504 Spee 2 UPLIT BYTE (ZASCIC ‘FID') 

; 505 56 2 UPLIT BYTE (ZASCIC ‘FILE_EXT")) 

; 506 2057 : VECTOR; 

3; 507 058 L_DECL; 

; 508 059 

: 509 060 

; $10 $003 ! Format the record header. 

3 31 O66 : 

; 2\¢ 06 FAO_("Record header'); 

: 51 064 OL-(); 

; 514 065 2 FAO"(" RSIZE = !UL!= = 2x'"!xw''", .RECCBRHSW_RSIZE)); 

g 919 006 EOL_(); 

; 516 06 FAO"("° RTYPE = 'AC', .RTYPESC.RECCBRHSW_RTYPE))); 

s S17 068 EOL_(); 

; 218 534 cant. BADDATA = !AC', .FALSETRUEC.RECCBRHSV_BADDATA])); 

: 520 071 FAO-(* DIRECTORY = !AC*, .FALSETRUEC.RECCBRHSV_DIRECTORY))); 


— _— — 
j 


4 
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W0et000 ANALYZE_ONE_RECORD = analyze save set record 1228087138 #7:69:08 EBACKUP. SRE ANALYZE .832;1 . B 
3 1 7 EOL_(); 
- g 7 FAO-(* ADDRESS = !UL", .RECCBRHSL_ADDRESS)); 
: 74 2 EOL-4); 
ls 4 075 2 EOL-(); 
1d 388 09 
i; ; 4 878 } Format the record contents. 
Ss > 080 CASE. - RECCBRHSU_RTYPE] FROM BRHSK_NULL TO BRHSK_FILE_EXT OF 
: 531 08 
; ; § O88 CBRHSK NULL. BRHSK_VBN, BRHSK_LBN, OUTRANGE): 
: 534 385 : 
; 535 086 CBRHSK_SUMMARY, BRHSK_VOLUME, BRHSK_FILE, BRHSK_FILE_EXT, BRHSK_PHYSVOLJ: 
; 3 087 BEGIN 
$ oor P 2088 FAO_(" STRUCLEV = !XwW', 
; 235 oa : -BBLOCKCRECCBRH$C_LENGTH,0,0,0], BSASW_STRUCLEV]); 
; 540 091 DEBCOCK_ATTR(.REC, 0, ANALYZE_ONE_ATTRIBUTE); 
> 541 O36 EOL_(); 
; 242 09 END; 
3 36 094 
3; 544 095 CBRHSK_FID): 
> 545 096 BEGIN 
; 546 P 2097 FAO_(* STRUCLEV = !xw' 
; 547 098 -BBLOCKCRECCBRHSC_LENGTH,0,0,03, BSASW_STRUCLEV]); 
; 4548 099 EOL_(); 
; 549 P 2100 FAO_(' FID COUNT = !UL" 
; 230 101 a {BBLOCKCRECCBRHSC_LENGTH,0,0,03, BSASW_FID_COUNT]); 
3 222 $103 INCR I FROM 0 TO .BBLOCKCRECCBRHSC_LENGTH,0,0,0], BSASW_FID_COUNTIJ-1 DO 
3; 55 g106 4 BEGIN 
; 554 P 2105 4 FAO_(" FID = (!UL,!UL,!UL)", 
3; 355 Pp 3106 4 -BBLOCKCRECCBRHSC_LENGTH,0,0,0], BSASW_FID_NUM] + 
; 556 P 2107 4 -BBLOCKERECCBRHSC_LENGTH,0,0,0), BSASB-FID-NMX} * 16 + .I, 
; 557 P 2108 4 -BBLOCK CRECCBRHSC-LENGTH*.1*2,0,0,0], BSASQ FID SEQ), 
; 558 109 4 -BBLOCKCRECLBRHSC_LENGTH,0,0,0), BSA$SB_FID_RVNJJ; 
; 239 110 4 03 
; 560 111 ; 
; «561 11g EOL_(); 
3 206 11 END; 
; 3 2114 
: 564 gil TES; 
3; 565 116 1 END; 
| 4c 4C 55 3 04 00730 P.ADZ: .ASCII <4>\NULL\ : 
59 3 44 40 4D 55 8. 0735 P.AEA: .ASCII <7>\SUMMARY\ 3 
45 40 22 4C 4F 56 06 00730 P.AEB: .ASCII <6>\VOLUME\ ; 
45 4C 49 46 04 00744 P.AEC: .ASCII <4>\FILE\ : 
3 4 28 ; 749 P.AED: .ASCII ; \VBN\ : 
4C 4F 56 53 59 48 50 740 P.AEE: .ASCII <?7>\PHYSVOL\ : 
4E 42 4C q P.AEF: ASCII <3>\LBN\ ; 
44 49 46 759 P.AEG: .ASCII <3>\FID\ ; 
54 58 465 SF 45 4C 49 46 75D P.AEH: .ASCI] <B>\FILE_EXT\ : 
| 
| 
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@ save set 15-Sep-1984 23:40:04 AX-11 Bliss-32 V¥4.0-742 Page 27 | 
ONE BUFFER = analyze save set buffer 12-80-1984 #7:69:08 (BACKUP. SRE ANALYZE .832;1 ’ 3} 
ZSBTTL "ANALYZE_ONE_BUFFER = analyze save set buffer’ 
OUTINE ANALYZE-ONEBUFFER(BCB): L_P$ NOVALUE= 


+ 
* 


FUNCTIONAL DESCRIPTION: 
This routine analyzes the contents of one save set buffer. 


INPUT PARAMETERS: 
BCB - Pointer to buffer control block. 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
NONE 


———— C=" 


IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: : 
The Listing is produced. 
The buffer is released. 


CMe me mmr es mcmracmrmrmmsarmesssereseseseseseosess 6 


Loca BCB: REF BBLOCK; ! Pointer to buffer control block 
BUF : REF BBLOCK; ' Pointer to buffer 
L_DECL; 


Point to buffer. 
BUF = .BCBCBCB_BUFFERI; 


: Format the block header. 
FAO. ( Block header’); 


bar" = !UL", .BUFCBBHSW_SIZE)); 
Eerat OPSYS = !UL', .BUFCBBHSW_OPSYS)); 
cteod SUBSYS = !UL', .BUFCBBHSW_SUBSYS)); 
ion APPLIC = !UL', .BUFCBBHSW_APPLIC)); 
peeot NUMBER = !UL*, .BUFCBBHSL_NUMBER)); 
FAO-(" STRUCLEV = !XW*, .BUFCBBHSW_STRUCLEV)); 


pr 

| 4 

| ANALY Analyze a save set 18-56 -1984 23:40:04 AX-11 Bliss-32 v4.0-742 

Rie ANALYZE _ONE BUFFER = analyze save set buffer 12-Sep-19 4 $7 :69:28 BACKUP. SRCJANALYZE.B325 1 

3 6246 174 2 EOL_(); 

; 6 5 125 FAO VOLNUM = =_- SUL", .BUF CBBHSW_VOLNUM]); 

3 6 ? 179 FAOL CRC = !XL", .BUFCBBHSL_CRC)); 

3 6 3 Hs Far BLOCKSIZE = !UL", .BUFCBBHSL_BLOCKSIZE)); 

; 6 1 1 AOL NOCRC = !AC', .FALSETRUEC BUF CBBH$V_NOCRCJJ); 

; 6 : g FAO SSNAME = “!AC'*, BUFCBBHST_SSNAME]); 

: 635 P2185 2 FAO-(' FID = !UL,!UL Ub: 

; 6 P 21 -BUF (BBHSW_FID_NUM) + .BUFCBGHSB_FID_NMX] * 16, 

: 637 P 21 -BUF [BBHSW~F ID-SEQ 

; 638 1 ; BUF CBBHSB~F ID-RVNJS; 

: 639 189 2 EOL_0); 

3 640 P 2190 2 FAO-(" DID = 'UL,!UL Ub 

> 641 P 2191 -BUF [BBHSW_DID_NUM] + .BUFCBGHSB_DID_NMX] * 16, 

3 649 P 198 .BUF CBBHSW-DID~SEQ 

> 64 19 . BUF CBBHSB_DID-RVNJ); 

> 664 194 2 EOL_Q; 

; 645 195 FAGL( FILENAME = ‘IAC’, BUFCBBHST_FILENAME)); 

: 647 197 2 FAOL(* ATTRIB = !XL!XL*, .(BUFCBBHSB_BKTSIZE]), .(BUFCBBHSB_RTYPE))); 

3 648 198 2 EOL-(); 

:; 649 199 2 FAO-("’ FILESIZE = 'UL', .BUFCBBHSL_FILESIZE)); 

; 650 $90 EOL_; 

: 651 01 2 EOL~(): 

; 65¢ 202 

; 65 $ 

: $28 soe Format the records contained in this buffer. 

: 656 2206 2 DEBLOCK(.BCB, ANALYZE_ONE_RECORD); 

: 657 2207 1 END; 

72 65 64 61 65 68 20 63 6F 6C 42 OC 00959 P.AES: .ASCII <122\Block header\ 

20 30 20 20 20 20 20 20 45 SA 49 53 20 é yi 09 P.AET: .ASCII <17>\ SIZE = 'UL\ 
20 20 53 59 53 50 4F 26 g 1 097 P.AEU: .ASCII <17>\ OPSYS = 'UL\ 
20 53 59 53 42 55 53 26 it O38, P.AEV: ASCII <17>\ SUBSYS = !UL\ 
20 43 49 46C 50 SO 41 26 it 099 P.AEW: ASCII <17>\ APPLIC = !UL\ 
20 52 45 42 4D 55S 4E 20 9 it O9AE P.AEX: ASCII <17>\ NUMBER = !UL\ 
45 4C 463 55 52 54 53 20 it O90 P.AEY: ASCII <17>\ STRUCLEV = !XW\ 
20 4D 55 4E 4C 4F 56 20 it 0308 P.AEZ: .ASCII <17>\ VOLNUM = !UL\ 
20 20 20 20 43 52 43 26 it es P.AFA: .ASCII <17>\ CRC = 'XL\ 
49 53 4B 43 GF 4C 42 26 if 9F P.AFB: .ASCII <17>\ BLOCKSIZE = ‘UL\ 
20 20 43 52 43 GF 4E 36 2 1} OAOB P.AFC: ASCII] <17>\ NOCRC = 'AC\ 
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ANALY ZE_ONE. BUFFER - analyze save set buffer 13-00-1964 #7 :89:08 
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LOCK 


3, DEB 


CALLS @ 


PUSHL 
RET 
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&@ save set 
= main analyze routine 


ZSBTTL “ANALYZE = main analyze routine’ 
GLOBAL ROUTINE ANALYZE: NOVALUE= 


‘ee 


FUNCTIONAL DESCRIPTION: 

INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BEGIN 
LOCAL 
CHK’ SAVESET: BYTE i 
PSAREA: VECTORCPS$SIZE]; ! 
GLOBAL REGISTER 
P$ = 11: REF VECTOR; 
BUILTIN 
FP; 


Establish the handler. 
.FP = RESTORE_HANDLER; 


R 
C 
C 
Ss 


PSAREA: 

DES 0} = LIST_SIZE; 
ESCC1) = _LIST_BUFFER; 

SAVESET = 1°; 


Do the Listing. 


AX-11 Bliss-32 V4.0-742 
BACKUP. SRC JANALYZE .832;1 


This routine is the driver for analysis generation. 


! Pointer to buffer control block 
' Check save set encryption on frst pass 


! Impure area base register 


4 
ANALY Analyze a save set 15-se 1984 23:40:0 AX-11 Bliss-32 V4.0-742 
ANAL i€ - natn analyze routine 12-80-1884 #7569328 YBACKUP- SRE ANALYZE .832;1 
H rg 65 INIT_IN_SAVE(FALSE); 
ay 66 WHILE (BCB = READ _BUFFER()) NEQ 0 DO 
; 4, : BEGIN 
: 7 6 IF .QUALCQUAL_SS_ENCRYP) 
3; £ THEN 
. £ ¢ 7 BEGIN 
a 72 4 ! If we are decrypting an encrypted sovenet and we don't yet have 
3; 726 735 4 ! the required decryp context, do a special scan of the first block 
3 fe 74 & ! to Locote the backup summary record, extract the datakey information 
: f § Le ? and initialize the decryption context. 
: 728 77 4 if .CRYP_DATA CODE EQLU 0 
; 729 78 5 THEN IF NOT (QUALCQUAL_SS_ENCRYP] = CRYPTO_INIDEC(.8CB)) 
; f : 4 ? THEN SIGNAL (BACKUPS_BACNOTENC); 
i 2 é y 4 ! Decrypt the buffer 
; 7 Bg CRYPTO_DECR_BLOCK(.BCB); 
i P38 Bs END 
B 86 3 ELSE 
ee: BB — 
3 oy 34 : Make sure that the save set is not encrypted. 
: 74 91 4 iF .CHK_SAVESET 
3 76 35 4 THEN IF CRYPTO _CHKSAV(.BCB) 
3; 746 93 4 THEN SIGNAL (BACKUPS$_ENCSAVSET) ; 
; 45 9% 4 CHK. SAVESET 20; 
> 74 236 . 
3; 748 29 ANALYZE_ONE_BUFFER(.BCB); 
3; 749 98 
s FSO 99 END; 
3 71 00 
: @& $3) F IN_IN_SAVE (FALSE); 
3 7 02 END; 


083¢ 00000 .ENTRY ANALYZE, Save R2,R3,R4,R5,R11 
55 000000006 00 9€ 9008 V LIBSSIGNAL, RS 
34 00000000" EF 9€ 09 MOVAB QUAL #12 Rd 
E FEF cE 9E 019 MOVAB =26 (SPS SP 
6p 000000006 9€ 0001 MOVAB RESTORE_HANDLER, (FP) 
8 6e E goit MOVAB PSAREA P$ 
68 0100 BF %3C O001F MOVZWL #256, (P$) 
04 A 08 AB t 0024 MOV B(R11), 4(P$) 
5 Q 96 9 MOVB #1, CHK_SAVESET 
: D4 ¢ CLRL 0s = ¢ §P) 
900000006 FB : CALLS #1, INIT_IN SAVE 
00000006 0 F 1$ CALLS 40, READ “BUFFER 
p MOVL RO; BCB 
4 003F BEQL 6$ 


Page 
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anal yee a@ save set 
ANALYZE = main analyze routine 


2c 02 AG 
06DC 
000000006 00 
02 AG 01 ; 
000000006 


65 
000000006 00 


000000006 0 
5 000000006 
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000000006 00 


; Routine Size: 159 bytes, Routine Base: CODE + OBD7 
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ISosenctgae 25:40:06 


AX=11 BL isg-52 V4.0+742 
BACKUP. SRC JANALYZE B32; 1 

#4, QUAL+14, 3$ 

GRYP_DATA_CODE 


BC8 
#1, CRYPTO_INIDEC 
RO, #4, #1, QUAL+14 


#BACKUP$_BACNOTENC 
#1, LIBSSIGNAL 


BC 

#1, CRYPTO_DECR_BLOCK 
CHK_SAVESET, 4$ 

#1, CRYPTO_CHKSAV 
wBAcKUPS ENCSAVSET 

#1, LIBSSIGNAL 
CHK_SAVESET 

"a. ANALYZE_ONE_BUFFER 


(SP) 
#1, FIN_IN_SAVE 
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4 
Analyze a save se 1S-se -1984 23:40:0 AX-11 Blics-32 V4.0-742 Pa 4 
ANALYZE = main Snolyee routine 14-Sep-19 4 #7:69:9 BACKUP. SRC JANALYZE .832;1 ” D 
$3 3 1 END 
0 ELUDOM 
-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 
4 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, bald | Bcd b ohh 1 
CODE 190 NOVEC;NOWRT, RD; EXE.NOSHR, LCL, REL. CON.NOPIC.ALIGN(2) 
Library Statistics 
eccece -- Symbols ------- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 9 0 581 00:01.2 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:ANALYZE/OBJ=OBJ$: ANALYZE MSRC$:ANALYZE/UPDATE=(ENH$: ANALYZE) 


; Size: 1398 code + 3916 data bytes 
; Run Time: 237.7 

; Elapsed Time: 244.5 

; Lines/CPU Min: 


662 
: Lexenes/CPU-Rin: 38693 
; ponery ¥ Used: 382 pages 
; Compilation Complete 
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